# Install necessary packages

install.packages$(\text{'}$alr$4\text{'})$

install.packages$(\text{'}$doParallel$\text{'})$

install.packages$(\text{'}$caret$\text{'})$

# Load the required libraries

library$($alr$4)$

library$($caret$)$

library$($doParallel$)$

library$($foreach$)$

# Load the MinnLand dataset

data$($MinnLand$)$

# Check column names to confirm correct variable names

colnames$($MinnLand$)$

# Remove rows with NA values

data $<-$ na$.$omit$($MinnLand$)$

# Convert year to factor

data$year $<-$ as$.$factor$($data$year$)$

# Define formulas for log and sqrt models

formula$\_$log $<-$ log$($acrePrice$)$ ~ $.$

formula$\_$sqrt $<-$ sqrt$($acrePrice$)$ ~ $.$

# Set up parallel processing

cl $<-$ makeCluster$($detectCores$()-1)$

registerDoParallel$($cl$)$

# $5-$Fold Cross Validation

train$\_$control$\_5$fold $<-$ trainControl$($method $=\text{'}$cv$\text{'},$ number $=5)$

# $10-$Fold Cross Validation

train$\_$control$\_10$fold $<-$ trainControl$($method $=\text{'}$cv$\text{'},$ number $=10)$

# Random Splitting with $1000$ splits

train$\_$control$\_$random $<-$ trainControl$($method $=$ 'repeatedcv', number $=10,$ repeats $=1000)$

# Fit log models

model$\_$log$\_5$fold $<-$ train$($formula$\_$log$,$ data $=$ data, method $=\text{'}$lm$\text{'},$ trControl $=$ train$\_$control$\_5$fold$)$

model$\_$log$\_10$fold $<-$ train$($formula$\_$log$,$ data $=$ data, method $=\text{'}$lm$\text{'},$ trControl $=$ train$\_$control$\_10$fold$)$

model$\_$log$\_$random $<-$ train$($formula$\_$log$,$ data $=$ data, method $=\text{'}$lm$\text{'},$ trControl $=$ train$\_$control$\_$random$)$

# Fit sqrt models

model$\_$sqrt$\_5$fold $<-$ train$($formula$\_$sqrt$,$ data $=$ data, method $=\text{'}$lm$\text{'},$ trControl $=$ train$\_$control$\_5$fold$)$

model$\_$sqrt$\_10$fold $<-$ train$($formula$\_$sqrt$,$ data $=$ data, method $=\text{'}$lm$\text{'},$ trControl $=$ train$\_$control$\_10$fold$)$

model$\_$sqrt$\_$random $<-$ train$($formula$\_$sqrt$,$ data $=$ data, method $=\text{'}$lm$\text{'},$ trControl $=$ train$\_$control$\_$random$)$

# Compare models

print$($model$\_$log$\_5$fold$)$

print$($model$\_$log$\_10$fold$)$

print$($model$\_$log$\_$random$)$

print$($model$\_$sqrt$\_5$fold$)$

print$($model$\_$sqrt$\_10$fold$)$

print$($model$\_$sqrt$\_$random$)$

# Stop parallel processing

stopCluster$($cl$)$

Here is code, it is running in R$,$ no errors. But no output is generated. Can you tell me why?