Aplicar la transformacin logartmica basada en el modelo de regresin con ajuste de parmetros > transformacion_optima > # Verificar si se encontr un valor ptimo

Aplicar la transformacin logartmica basada en el modelo de regresin con ajuste de parmetros > transformacion_optima <- logtrans(lmod_reducido, data = framingham_data, tol = 1e-6, maxit = 100) > > # Verificar si se encontr un valor ptimo de 'a' > if (!is.null(transformacion_optima$apha)) { + # Obtener el valor ptimo de 'a' + a_optimo <- transformacion_optima$alpha + + # Aplicar la transformacin logartmica a la variable de respuesta + framingham_data$sysBP_transformada <- log(framingham_data$sysBP + a_optimo) + } else { + print("No se encontr un valor ptimo de 'a'. Revisa el modelo y los datos.") + } [1] "No se encontr un valor ptimo de 'a'. Revisa el modelo y los datos." >