Skip to content

Instantly share code, notes, and snippets.

View SakshamInABox's full-sized avatar
⚙️

Saksham Anand SakshamInABox

⚙️
View GitHub Profile
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
---
title:
description:
image:
address:
city:
country: New Zealand
event-date: 2019-03-05 17:00:00 UTC+13
type: Workshop
event-url: http://ha
#----Australian Elevation Map----#
#Download Elevation Data (Ensure Working Directory Set)
alt.aus <- getData(name = "alt", country = "AU")
#Calculating Slope & Aspects
terr.aus <- terrain(x = alt.aus[[1]], opt = c("slope", "aspect"))
#Computing Hill Shade From Aspect & Slope
hill.aus <- hillShade(slope = terr.aus$slope, aspect = terr.aus$aspect)
#Download Elevation Data (Ensure Working Directory Set)
alt.aus <- getData(name = "alt", country = "AU")
#Calculating Slope & Aspects
terr.aus <- terrain(x = alt.aus[[1]], opt = c("slope", "aspect"))
#Computing Hill Shade From Aspect & Slope
hill.aus <- hillShade(slope = terr.aus$slope, aspect = terr.aus$aspect)
#Area Of Interest (Doesn't Seem To Corespond To LAT LONG ?)
> chill_frame_four
plant spec treat conc photo
1 1 Lolium perenne nonchilled 95 16.0
2 1 Lolium perenne nonchilled 175 30.4
3 1 Lolium perenne nonchilled 250 34.8
4 1 Lolium perenne nonchilled 350 37.2
5 1 Lolium perenne nonchilled 500 35.3
6 1 Lolium perenne nonchilled 675 39.2
7 1 Lolium perenne nonchilled 1000 39.7
8 2 Lolium perenne nonchilled 95 13.6
/**************************
program title: Assaignment 3
Author: Kenneth Gardiner, 18013601
description. program runs functions to find the best resistor for a circuit
*****************************/
#include <iostream>
using namespace std;
double input();
double Calculate(double reqGain, double stdR[], double& R1, double& R2, double& R3, double& R4);
void Output(double reqGain, double ActGain, double& R1, double& R2, double& R3, double& R4);
//CSS Lines
.d-icon {
content: url("../../../assets/icons/dlogo.jpg");
position: absolute;
text-align: center;
bottom: 2px;
left: 0.6vh;
height: 90px;
width: 88px;
}
#Load & Assign Files
TrainDataOrange <- read.arff("D:/Downloads/orange_train.arff")
colnames(TrainDataOrange)[colnames(TrainDataOrange)=="Var230"] <- "class"
TestDataOrange <- read.arff("D:/Downloads/orange_test.arff")
colnames(TestDataOrange)[colnames(TestDataOrange)=="Var230"] <- "class"
#Obtain Class Values
Actual <- TestDataOrange[, 230]
#Ranking
#Load & Assign Files
TrainDataOrange <- read.arff("D:/Downloads/orange_train.arff")
colnames(TrainDataOrange)[colnames(TrainDataOrange)=="Var230"] <- "class"
TestDataOrange <- read.arff("D:/Downloads/orange_test.arff")
colnames(TestDataOrange)[colnames(TestDataOrange)=="Var230"] <- "class"
#Obtain Class Values
Actual <- TestDataOrange[, 230]
#Ranking