una función que permita ingreso de imágenes identifique si en la imagen hay un perro o no
library(AppliedPredictiveModeling) data(solubility) solTrain <- solTrain solTest <- solTest # Build a model for the training data set fit <- lda(solTrain$soluble ~ ., data = solTrain) # Predict new cases using the model pred <- predict(fit, newdata = solTest) table(pred$class, solTest$soluble)