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)