diff options
| author | Loic Guegan <manzerbredes@mailbox.org> | 2022-11-18 12:01:22 +0100 |
|---|---|---|
| committer | Loic Guegan <manzerbredes@mailbox.org> | 2022-11-18 12:01:22 +0100 |
| commit | 28f7d30725378c7ffffd7ef7e4aa2f98ac592ee5 (patch) | |
| tree | d4ac74496b471d33376fbbb3223ef2ae20876f13 /analysis/learning.R | |
| parent | 51ca3092d81fee2eba3ac108e695271427c92f26 (diff) | |
Update
Diffstat (limited to 'analysis/learning.R')
| -rw-r--r-- | analysis/learning.R | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/analysis/learning.R b/analysis/learning.R index c8c61b8..cb8a3b4 100644 --- a/analysis/learning.R +++ b/analysis/learning.R @@ -80,7 +80,7 @@ constraints=apply(inputs,1,function(row){ min_coverage=min((data_seed%>%filter(wireless==wi,wakeupfor==wa))$coverage) max_coverage=max((data_seed%>%filter(wireless==wi,wakeupfor==wa))$coverage) ## Generate random points (10 per scenarios) - n=10 + n=20 current_inputs=tibble( wireless=rep(wi,n), wakeupfor=rep(wa,n), @@ -96,7 +96,7 @@ constraints=apply(inputs,1,function(row){ tree_final=tibble(cbind(current_inputs,tibble(simkey=predictions_tree,model="tree"))) rbind(knn_final,tree_final) }) -inputs=do.call("rbind",constraints) +inputs=do.call("rbind",constraints)%>%distinct() ## Dimension Energy/Coverage ggplot(data_seed%>%mutate(wakeupfor=as.character(wakeupfor)), aes(coverage,energy,color=simkey))+geom_point()+ |