library(tidyverse) library(oddwater) data("data_sandy_anom")
data <- data_sandy_anom[,c("Timestamp", "Cond")] data_trans <- transform_data(data)
gives an error:
Error in dimnames(x) <- dn : length of 'dimnames' [2] not equal to array extent
suggestion: add explicit colnames and wrap transformation vectors in as.matrix():
colnames(data_var) <- colnames(data)[!(colnames(data) %in% time_col)] near line 30
der_log_bounded <- rbind( rep(NA, ncol(data_var)), as.matrix(diff_log_series[2:n, ] / as.numeric(time_bound))) e.g near line 45
library(tidyverse) library(oddwater) data("data_sandy_anom")data <- data_sandy_anom[,c("Timestamp", "Cond")] data_trans <- transform_data(data)gives an error:
Error in dimnames(x) <- dn : length of 'dimnames' [2] not equal to array extentsuggestion: add explicit colnames and wrap transformation vectors in
as.matrix():colnames(data_var) <- colnames(data)[!(colnames(data) %in% time_col)]near line 30der_log_bounded <- rbind( rep(NA, ncol(data_var)), as.matrix(diff_log_series[2:n, ] / as.numeric(time_bound)))e.g near line 45