mirror of
https://github.com/Microsoft/sql-server-samples.git
synced 2025-12-08 14:58:54 +00:00
9 lines
275 B
R
9 lines
275 B
R
library(MicrosoftML)
|
|
rds <- readRDS("sentiment.rds")
|
|
model <- rxUnserializeModel(rds)
|
|
|
|
handler <- function(reviewText) {
|
|
dataFrame = data.frame(Text = reviewText, Rating = as.integer(c(0)), stringsAsFactors = FALSE)
|
|
result <- rxPredict(model, data = dataFrame)
|
|
result
|
|
} |