Defines functions calculate_error

calculate_error <- function(theta_hat, theta_test, alpha_hat, alpha_test, delta_hat, delta_test){

  theta_error <- sum((theta_hat - theta_test)^2)
  alpha_error <- sum((alpha_hat - alpha_test)^2)
  delta_error <- sum((delta_hat - delta_test)^2)

  error <- max(theta_error,alpha_error,delta_error)

Try the latentgraph package in your browser

Any scripts or data that you put into this service are public.

latentgraph documentation built on Dec. 15, 2020, 5:23 p.m.